home *** CD-ROM | disk | FTP | other *** search
/ Risc World 3 / Risc World 3.iso / SOFTWARE / ISSUE4 / ZAP / !Zap / Code / SetZapGen < prev    next >
Text File  |  2002-05-08  |  608b  |  8 lines
  1. Set ZapGenerated$Path ""
  2. IfWrite ZapUser:Generated Then Set ZapGenerated$Path ZapUser:Generated.<Zap$Country>.,ZapUser:Generated.
  3. If ZapGenerated$Path>"" Then Set ZapGenerated$Write ZapUser:Generated.<Zap$Country>
  4. If ZapGenerated$Path="" Then If "<Wimp$ScrapDir>">"" Then IfWrite <Wimp$ScrapDir> Then Set ZapGenerated$Path <Wimp$ScrapDir>.Zap.
  5. If (ZapGenerated$Path RIGHT 5)=".Zap." Then Set ZapGenerated$Write <Wimp$ScrapDir>.Zap
  6. If ZapGenerated$Path="" Then If "<Wimp$ScrapDir>"="" Then Error Can't find a writeable area for temporary files
  7. IfThere <ZapGenerated$Write> Then Else CDir <ZapGenerated$Write>
  8.